home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / mc174v10.zip / RSB1MAIL.MRG < prev   
Text File  |  1992-10-20  |  1KB  |  35 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB1.BAS to produce RBBSSUB1.NEW
  3. * RBBSSUB1.BAS:  Date 6-20-1992  Size 55569 bytes
  4. * MAIL174 (c) 1992 by Richie Molinelli
  5. * RBBS (c) 1992 by D. Thomas Mack
  6. * ------------[ Created 10-19-1992 23:11:59 ]------------
  7. * REPLACING old line(s) by new
  8. 58280 ' $SUBTITLE: 'GetPassword - sub to read the "passwords" file'
  9. ' $PAGE
  10. '
  11. '  NAME    -- GetPassword
  12. '
  13. '                          PARAMETER             MEANING
  14. '  INPUTS  -- FILE # 2 OPENED
  15. '
  16. '  OUTPUTS -- ZTempPassword$
  17. '             ZTempSecLevel
  18. '             ZTempTimeAllowed
  19. '             ZTempRegPeriod
  20. '             ZTempMaxPerDay
  21. '
  22. '  PURPOSE -- To read the RBBS-PC "PASSWORDS" file
  23. '
  24.       SUB GetPassword STATIC
  25.       ON ERROR GOTO 65000
  26.       ZErrCode = 0
  27.       INPUT #2,ZTempPassword$,    ZTempSecLevel, _
  28.                ZTempTimeAllowed,  ZTempMaxPerDay, _
  29.                ZTempRegPeriod,    ZTempExpiredSec, _
  30.                ZStartTime,        ZEndTime, _
  31.                ZByteMethod,       ZRatioRestrict#, _
  32.                ZInitialCredit#,   ZTempTimeLock, _
  33. * ------[ first line different ]------
  34.                ZTempMaxBank,      ZDoMailCheck                       ' MAIL174
  35.